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Reproduce, Emit, and Sequence on CUE) 1. 6. 119 




DISCLAIMER 



Although each program has been tested by its contributor, no 
warranty, express or implied, is made by the contributor or 
1620 USERS Group, as to the accuracy and functioning of the 
program and related program material, nor shall the fact of 
distribution constitute any such warranty, and no responsibility 
is assumed by the contributor or 1620 USERS Group, in con- 
nection therewith. 



1620 USERS GROUP PROGRAM REVIEW AND EVALUATION 



(fill out in typewriter or pencil, do not use ink) 

Program No. Date. 

Program Name; 



1. Does the abstract adequately describe what the program is and what Yes No 

it does? 

Comment 

2. Does the program do what the abstract says ? Yes No 

Comment 



3. Is the Description clear, understandable, and adequate? Yes No_ 

Comment 

4. Are the Operating Instructions understandable and in sufficient detail? Yes No_ 

Commen t 

Are the Sense Switch options adequately described (if applicable)? Yes No_ 

Are the mnemonic labels identified or sufficiently understandable? Yes No_ 

Comment 

5. Does the source program compile satisfactorily (if applicable)? Yes No_ 

Comment 

6. Does the object program run satisfactorily? Yes No_ 

Comment 

7. Number of test cases run . Are any restrictions as to data, 

size, range, etc. covered adequately in description? Yes No_ 

Commen t 

8. Does the Program Meet the minimal standards of the 1620 Users 

Group? Yes No_ 

C omment 

9. Were all necessary parts of the program received? Yes No_ 

Comment 

10. Please list on the back any suggestions to improve the usefulness of the program. 
These will be passed onto the author for his consideration. 

Please return to: Your Name 



Mr. Richard L. Pratt Company 
Data Corporation 

.7500 Old Xenia Pike Address 
Dayton, Ohio 45432 



User Group Code_ 



THIS REVIEW FORM IS PART OF THE 1620 USER GROUP ORGANIZATION'S PROGRAM 
REVIEW AND EVALUATION PROCEDURE. NONMEMBERS ARE CORDIALLY INVITED 
TO PARTICIPATE IN THIS EVALUATION. 

/ ii /no/ « /i 
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TITLE OF PROGRAM 

REPRODUCER (OR RESCUE, FROM THE PHRASE REPRODUCE « EMIT. AND 
SEQUENCE ON CUE ) 

AUTHOR 

MARILYN SUE WILSON 

ADDRESS 

UNIVERSITY COMPUTING CENTER 
UNIVERSITY OF MAINE 
ORONO. MAINE 

162 USERS GROUP MEMBERSHIP CODE 
1108 

DATE 

OCTOBER 22 • 1964 



Modifications or revisions to this program, as they occur, 
will be announced in the appropriate Catalog of Programs 
for IBM Data Processing Systems. When such an announce- 
ment occurs, users should order a complete new program 
from the Program Information Department. 

// 



1620 USERS GROUP LIBRARY 
PROGRAM ABSTRACT 

1. TITLE (If subroutine, state in Title): REPRODUCER (or RESCUE, I.e., Reproduce, Emit, ■ 

and Sequence on CUE) . 

2. Author; Organization: Marilyn Sue Wilson, University Computing Center, 

University of Maine, Orono, Maine 

Date: October 22, 190** Users Group Membership Code: 1108 

3. Direct Inquiries to Name: Russell A. Altenberqer, University Computing Center. 

University of Maine, Orono, Maine Phone: 866-7471 

4. Description/Purpose: (5. Method; 6. Restriction/ Range; When Applicable) This program 

simulates the card reproducing, emitting, and sequencing functions of an IBM 

519 reproducer. Up to six functions may be performed at the same time, specified 
by control cards - (1) Move fields (up to 48 fields, each of any length), (2) Emit 

character.s. (3) Set to blank, (k) Clear flags. (5) Set flags, and (6) Seguence 

(from a specified initial number and by a specified increment). The control card 
format is simple (simple enough to be punched from memory) and the number of control 
cards is low (1, 2. or 3 per function used), despite the versatility of the program. 



7. Specifications (Check or fill in appropriate spaces): 

a. Storage used by program: 20,000 minimum (program uses Q0401-12809) 

b. Equipment required by program: 

Card System X ; Magnetic Tape System ; No. of Tapes ; 

Paper Tape System j Disk File System ; No. of Packs ; 

TNS, TNF, MF X ; Auto divideX ; Indirect addressing X ; Floating point hardware 

Other (specify) None 

Can program be used on lesser Machine? Ho • Specify which requirements can be 

easily removed None 

c. Programming type (Check appropriate spaces): 

Fortran without Format ; Fortran with Format ; 

Fortran I I ; Mainline, Complete ; Subroutine or function subprogram(S or F) ; 

Is the program a library (ie, .SPS) function to the Fortran system checked? ; 

SPS ; SPS - 1620/1710 X ; 

Mainline, Complete ; Macro ; Subroutine ; 

Other programming language: ; Give details 

d. Language used in the writeup: Enql i sh 

8. Additional Remarks: Subject classification - 1.6 
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DECK KEY 



DECK NUMBER 



DECK NAME SEQUENCE NUMBERS 



1 SOURCE DECK 10000-10421 

2 CONDENSED OBJECT DECK 00000-00108 

3 SAMPLE DATA 
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I. DESCRIPTION 
*************** 



THE REPRODUCER PROGRAM SIMULATES THE CARD REPRODUCING, EMITTING, 
AND SEQUENCING FUNCTIONS OF THE IBM 519 REPRODUCER. UP TO SIX 
DIFFERENT FUNCTIONS MAY HE PERFORMED AT THE SAME TIME AS SPECIFIED BY 
CONTROL CARDS - (t) MOVE FIELDS, <2> EMIT CHARACTERS, (3) SET TO 
BLANK, (4) CLEAR FLAGS, (5) SET FLAGS, AND (6) SEQUENCE. 

ONE CONTROL CARD SPECIFIES WHETHER THE 1620 IS TO REPRODUCE CARD! 
OR IS TO PUNCH ONLY (WITHOUT READING). 

SETS OF TWO OR THREE CONTROL CARDS EACH SPECIFY DETAILS OF THOSE 
OF THE SIX ABOVE— MENT I ONED FUNCTIONS THAT ARE TO BE USED. IF A 
FUNCTION IS NOT TO BE USED, NO CONTROL CARDS ARE ENTtRED FOR IT. 

THE PROGRAM IS INTENDED TO BE VERSATILE, BUT AT THE SAME TIME 
CONVENIENT AND EASY TO USE. CONTROL CARD FORMAT HAS BEEN KEPT SIMPLE 
AND BRIEF, AND THE NUMBER OF CONTROL CARDS HAS BEEN KEPT LOW. 



I I . CONTROL CARDS 
****************** 

A. CONTROL CARD USE AND FORMATS 
******************************** 



1 . $ CARD 
**»**■**### 

THE * CARD SPECIFIES ONE OF THREE BASIC OPERATING MODES 
FOR THE PROGRAM— 

1. REPRODUCE 80-80, EXCEPT AS OTHERWISE SPECIFIED BY THE 
VARIABLE CONTROL CARDS. ^ a ^„ 

2. REPRODUCE ONLY AS SPECIFIED BY THE VARIABLE CONTROL CARDS. 

3. PUNCH ONLY (I.E., WITHOUT READING). 

THE S CARD IS PUNCHED WITH A S IN COLUMN 1 AND THE NUMBER 
OF THE BASIC OPERATING MODE IN COLUMN 2. (COMMENTS IDENTIFYING 
THE CARD MAY BE PUNCHED IN THE REST OF IT.) 
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FOR EXAMPLE— 

$1 REPRODUCE 80-80 

$2 REPRODUCE ONLY AS SPECIFIED 

S3 PUNCH ONLY 

ONE. AND ONLY ONE, * CARD MUST BE USED. 

2. VARIABLE CONTROL CARDS 
#*♦»#»***♦■**»******»****** 

THE VARIABLE CONTROL CARDS SPECIFY THE DETAIL OPERATING 
FUNCTIONS OF THE REPRODUCER PROGRAM. TWO OR THREE CONTROL. 
CARDS ARE REQUIRED FOR EACH FUNCTION. THE FIRST CARD 
SPECIFIES THE FUNCTION AND THE NEXT ONE OR TWO CARDS SPECIFY 
THE COLUMNS TO BE OPERATED UPON. EXCEPT FOR SEQUENCING, THERE 
IS NO LIMIT TO THE LENGTH OR NUMBER OF FIELDS. ANY ALPHAMERIC 
CHARACTER MAY BE USED TO DESIGNATE A FIELD. SEE THE SAMPLE 
CONTROL CARDS IN SECTION IIC. 

1 . REPRODUCE 

CARD 1 - COL* 1-9 REPRODUCE 

CARD 2 - SPECIFIES WHICH FIELDS ARE TO BE MOVED. 

THESE FIELDS ARE SET BLANK UNLESS FILLED 
BY FURTHER OPERATIONS. 

CARD 3 - SPECIFIES WHERE THE FIELDS ARE TO BE MOVED 
TO. FIELDS ARE MATCHED BY CHARACTER AND 
LENGTH. A FIELD DEFINED IN CARD 2 MAY BE 
MOVED TO MORE THAN ONE NON-ADJACENT F I ELD 
DEFINED IN CARD 3. 

2. EMIT 

CARD 1 - COL. 1-4 EMIT 

CARD 2 - ALL NON-BLANK CHARACTERS IN THIS CARD WILL 
BE PUNCHED IN THE OUTPUT CARD. < DOES NOT 
EMIT BLANKS. USE VARIABLE CONTROL CARD 3, 
BLANKS, TO SET COLUMNS BLANK.) 

3. SET TO BLANK 

CARD 1 - COL. 1-5 BLANK 

CARD 2 - ALL NON-BLANK COLUMNS IN THIS CARD WILL BE 
SET BLANK IN THE OUTPUT CARD. 
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4. CLEAR FLAG 

CARD 1 - COL. 1-10 CLEAR FLAG 

CARD 2 - ALL NON-BLANK COLUMNS WILL HAVE FLAGS (ANY 
ZONE PUNCH) REMOVED (I.E.. HIGH ORDER POSI- 
TION OF ALPHAMERIC CHARACTER IS SET TO 7). 

5. SET FLAG 

CARD 1 - COL. 1-8 SET FLAG 

CARD 2 - ALL NON-BLANK COLUMNS WILL HAVE FLAGS 

(11-PUNCH) INSERTED (I.E.. HIGH ORDER POSI- 
TION OF ALPHAMERIC CHARACTER IS SET TO 5 ) . 

6. SEQUENCE 

CARD 1 - COL. 1-8 SEQUENCE 
10-* 14 BY XX 
COLUMNS 10-14 MAY BE LEFT BLANK IF 
SEQUENCE INCREMENTING IS TO BE BY ONES. 
IF OTHER THAN BY ONES. XX SHOULD EQUAL THE 
DESIRED INCREMENT. EMIT ZEROS IF 
INCREMENTING BY HUNDREDS. 

CARD 2 - NON-BLANK FIELD SPECIFIES LOCATION. 

LENGTH. AND FIRST SEQUENCE NUMBER TO BE 
PUNCHED. LEADING ZEROS MUST BE PUNCHED TO 
ESTABLISH LENGTH AND WILL BE PUNCHED IN 
OUTPUT CARD. THE SEQUENCE FIELD MAY RANGE 
IN LENGTH FROM 2 TO 1 COLUMNS. INCLUSIVE. 
ONLY ONE SEQUENCE FIELD IS PERMITTED. 



3. GO CARD 
*•»**»**#*»* 

THE GO CARD IS PUNCHED WITH THE WORD GO, IN COLUMNS 1-2 
AND INDICATES THAT ALL CONTROL CARDS HAVE BEEN READ. PROCESSING WILL 
BEGIN AFTER THE GO CARD HAS BEEN READ. 
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C. SAMPLE CONTROL CARDS 
♦**♦*♦»#**♦****♦»»#♦**»* 

51 REPRODUCE 80-80 

52 REPRODUCE ONLY AS SPECIFIED 

53 PUNCH ONLY 
REPRODUCE 
AAABBB 22 

BBBAAA 22 22 

EMIT 

A12345Z 

BLANK 

AA 11 

CLEAR FLAG 

*#* 55 . 

SET FLAG 

AA A 

SEQUENCE BY 25 

0000050 

GO 



\ 
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II!. OPERATING INSTRUCTIONS 
***************************** 



A. DECK PREPARATION 
********************* 

T HE INPUT MUST BE ASSEMBLED IN THE FOLLOWING ORDER— 

1 . PROGRAM DECK 

2. ONE S CARD AND THE VARIABLE CONTROL CARDS. NO ORDER 
IS REQUIRED FOR THESE CARDS. 

3. GO CARD 

4. DATA CARDS (NONE. IF S3 CARD IS USED) 

B. MACHINE OPERATION 
* ********************* 

1. PLACE ASSEMBLED PROGRAM AND DATA IN READ HOPPER. 

2. READY PUNCH. 

3. PRESS RESET AND LOAD. START AFTER PROGRAM IS LOADED. 

NOTE- IF ANY CONTROL CARD ERRORS ARE DETECTED. THE 
PROGRAM WILL STOP AFTER PRINTING THIS MESSAGE- 
ERROR IN CONTROLS. 

AFTER MAKING PROPER CORRECTIONS, PLACE 

CORRECTED CONTROL CARDS IN READ HOPPER. 

PRESS START. PROGRAM WILL AUTOMATICALLY 

RESTART. 

4. PROGRAM WILL RUN UNTIL ALL DATA CARDS HAVE BEEN 
PROCESSED AND WILL STOP WITH READER NO FEED FOR SI 
AND S2 CARDS AND PUNCH NO FEED FOR S3 CONTROL CARD. 

C. RESTART PROCEDURE 
********************** 

TO RESTART THE PROGRAM FOR A NEW SET OF CONTROL CARDS , 
PERFORM THE FOLLOWING OPERATIONS- 

1. PRESS - RESET. INSERT. RELEASE. START. 

2. IF STEP 1 DOES NOT FUNCTION CORRECTLY. PRESS - 
RESET. INSERT. TYPE 490O4091FLAG OVER 9), RELEASE. 
START. 
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D. ERROR MESSAGES 
***»»**»♦*****»**» 

THE FOLLOWING MESSAGES MAY APPEAR IF AN ERROR IS 
DETECTED. EXCEPT FOR THE SEQUENCE OVERFLOW MESSAGE. 
PROCESSING WILL STOP IF ANY ERROR IS FOUND. 

1. NO SI. S2, OR S3 CARD. 

2. OTHER THAN EMIT OR SEQ WITH S3 CONTROL. 

3. UNDEFINED CONTROL CARD. 

4. SEQUENCE FIELD NOT IN 2-10 COL RANGE. 

5. UNMATCHED CODES OR LENGTHS IN REPRO CARD. 

6. SEQUENCE OVERFLOW. (IF INCREMENTING OF SEQUENCE 
FIELD CAUSES AN OVERFLOW CONDITION. THIS MESSAGE 
WILL BE PRINTED ONCE. INCREMENTING WILL CONTINUE, 
BUT HIGH ORDER OVERFLOW CHARACTERS WILL BE LOST.J 



IV. EQUIPMENT REQUIRED AND PROGRAMMING SYSTEM USED 
*♦*###♦*#******♦**»*****»*»*»********************** 



THE REPRODUCER PROGRAM REQUIRES THE FOLLOWING MACHINE 
SPECIFICATIONS- 
IBM 1620 WITH MINIMUM 20,000 CORE 
CARD SYSTEM 
TNS. TNF. MF 
AUTO DIVIDE 
INDIRECT ADDRESSING 

THE 'PROGRAM WAS ASSEMBLED USING SPS-1 620/ 1 720 . 
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SAMPLE INPUT AND OUTPUT 
*********************** 

CASE 1- REPRODUCE 80-80 EXCEPT WHERE SPECIFIED IN VARIABLE CONTROLS 

I NPUT 
***** 

SI, 
REPRODUCE 
AAABBB *** 
BBBAAA*** *** 
EMIT 

XYZ A 

BLANKS 

1 2 34 

CLEAR FLAG 

9 * 11 

SET FLAG 

AA 4444 

SEQUENCE 

OOOOOOO 

GO 

ABCDEFGH I JKLMNOPQRSTUVWXYZABCDEFGH I JKLMNOPORSTUVWXYAABCDEFGH I JKLMNOPQRSTUVWXYZAB 
1 234567890 1 234567890 1 234567890 1 234567890 1 234567890 1 234567890 1 234567890 1 234567890 
111111111 12222222222333333333344444444445555555555666666666677777777778888888888 
44444444444444444444444444444444444444444444444444444444444444444444444444444444 

BBBBBBBBB8BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 
987654321 

PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPP 



OUTPUT 
****** 

EFG89 JKLMNOPORSTUVWXYAABCDEFGH I JKLMNOPQRSTOOOOOOOA 
1 23450P890 JKLM567890 1 234567890 1 234567890 1 2000000 1 A 
44444MM444NNNN55555566666666667777777777880000002A 
44444MM444MMMM44444444444444444444444444440000003A 
BBB22KKBBBKKKKBBBBBBBBBBBBBBBBBBBBBBBBBBBB0000004A 
0000 0000 0000005A 
PPP77PPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPPQ000006A 



DEF ABCMNO JKL 
456123345012 
11111 1222122 
444444444444 
BBBBBBBBBBBB 
654987 

pppppppppppp 



MNOSXYZWX 9 2 

3459XYZ34 6 8 

2222XYZ33 3 3 

4444XYZ44 4 4 

BBBBXYZBB 2 2 

XYZ 

PPPPXYZPP 7 7 
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SAMPLE INPUT AND OUTPUT 
*********************** 

CASE 2- NO REPRODUCING EXCEPT WHERE SPECIFIED IN VARIABLE CONTROLS 

INPUT 
***** 



$2 

SEQUENCE BY 25 
0OO0OO1OO 
CLEAR FLAG 

AAA 

REPRODUCE 

111111 88 
It 11 1188 88 

SET FLAG 

W W 

EMIT 

SPECIAL 

GO 

ABCDEFGH I JKLMNOPQRSTUVWXYZ ABCDEFGH I JKLMNOPORSTUVWXYAABCDEFGH I JKLMNOPQRSTUVWXYZ AB 
1 234567890 1 234567890 1 234567890 1 234567890 1 234567890 1 234567890 1 234567890 1 234567890 
11111111 1 12222222222333333333344444444445555555555666666666677777777778888888888 
44444444444444444444444444444444444444444444444444444444444444444444444444444444 

BBBBBBBBBBBBBBBBBPBBBBRBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 
987654321 

pppppppppppppppppppppppppppppppppppppppppppp'pppppppppppppppppppppppppppppppppppp 



OUTPUT 
****** 



0000001 00 
OOOOOOl 25 
000000150 
000000175 
0000002 00 
000000225 
000000250 



OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 
OOOO 



DEFGHI XY 
O1234501 
34444456 
44444444 

BBBB8BBB 

PPPPPPPP 



XY 
01 
56 
44 

BB 



SPECIAL 
SPECIAL 
SPECIAL 
SPEC 1 AL 
SPECIAL 
SPEC I AL 
SPECIAL 
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COMPUTER 
TECHNOLOGY 

SAMPLE INPUT AND OUTPUT 
*********************** 

CASE 3- PUNCH ONLY (NO REPRODUCING) 

I NPUT 
#***♦ 

S3 

EMI T 

*** UNIVERSITY OF MAINE *** 

SEQUENCE BY 2 

02 

GO 



OUTPUT 
*#*»»» 



*** UNIVERSITY OF MAINE *** 02 

*♦* UNIVERSITY OF MAINE *** 04 

*** UNIVERSITY OF MAINE »*♦ 06 

*** UNIVERSITY OF MAINE »** 08 

*** UNIVERSITY OF MAINE *** 10 



1 1 











01001 


* 






REPRODUCER 


00405 








01 005 




DORG 


00405 




00409 




00 005 


-1842 


01O06 




DSA 


START 




004 lO 


M9 


0040R 


ooooo 


01007 


RST1 


B 


409, ,06, 




00423 




00002 




01O10 


CT1 


DC 


2.00. . 


ERROR=FLAG 


00425 




00002 




01020 


CT2 


DC 


2.00. . 


NO SET FLAGS 


00427 




00002 




01030 


CT3 


DC 


2.00. . 


NO CLEAR FLAGS 


00429 




00002 




01040 


CT4 


DC 


2,00. . 


S 1 ♦ S2 , S3 CODE 


00431 




00002 




01050 


CT5 


DC 


2.00. . 


NO FROM FIELDS 


00433 




00O02 




01060 


CT6 


DC 


2 , OO . . 


NO BLANK FIELDS 


00435 




00002 




01 070 


CT7 


DC 


2,00, . 


NO EMIT FIELDS 


00437 




00002 




01080 


CT8 


DC 


2.00. . 


NO TO FIELDS 


00439 




00002 




01 090 


CT9 


DC 


2 . 00 . . 


NO FROM COLS TO BE CLEARED 


00448 




00009 




01 120 


FT8L 


DSB 


9.20, . 


CODEC 2) .LENGTH (2). RIGHT POSITION IN FROM<5) 


00441 








01 130 


FCD 


DS 


.FTBL-7, , 




00443 








01 140 


FLNG 


DS 


.FTBL-5. , 




00448 








01 150 


FRT 


DS 


. FTBL » . 




00629 




00010 




01 190 


SQHLD 


DC 


10,0000000000,. SEQUENCE FIELD 


00631 




00002 




01200 


SQCT 


DC 


2.00. . 


SEQUENCE I NCREMENT 


00633 




00002 




02010 


CCODE 


DC 


2.00, , 


CONSTANTS FOR COLUMN SEARCH 


00635 




00 002 




•02O2O 


CLONG 


DC 


2.0O. . 


• LENGTH OF FIELD 


00637 




00 002 




02030 


CLFT 


DC 


2 , 00 , , 


• LEFTMOST COLUMN NUMBER 


00639 




O0002 




02040 


CRT 


DC 


2,00. . 


. RIGHTMOST COLUMN NUMBER 


00644 




00 005 




02050 


TEMP5A 


DC 


5.00000. , 


. WORKING AREA 


00649 




00005 




02O60 


TEMP 58 


DC 


5, OOOOO, , 


• WORKING AREA 


00651 




00002 




02O70 


TEMP2 


DC 


2,00, , 


. NEXT COL TO BE CHECKED < =8 1 AT END 


00653 




00002 




02090 


WORK 2 


DC 


2,00, , 




00663 




00010 




021 OO 


Z10 


DC 


10,0000000000,, 


00664 


M9 


07278 


00000 


03O10 


BR 1 


B 


E4A-1 1 ,,0 




00676 


M9 


06246 


ooooo 


03020 


BR2 


B 


QUES 1 » . . 




00688 


M9 


08250 


ooooo 


03O40 


BR4 


B 


E5A-1 1 , ,0 




00700 


M9 


09222 


ooooo 


03050 


BR5 


B 


E6A-1 1 , ,0 




00712 


M9 


10194 


ooooo 


03O60 


BR6 


B 


E8A-1 1 ,.0 




00724 


M9 


1 1 166 


ooooo 


03O8O 


BR8 


B 


E9A-1 1 , , 




00736 


M9 


12138 


ooooo 


03O9C 


BR9 


B 


E7A, ,0, 




00748 


L2 


00748 


ooooo 


04060 


DUM4A 


SF 


** . . , 




00760 


K6 


00760 


00760 


041 00 


DUM5A 


TF 


*♦,*#, 0, 




00772 


J6 


00772 


00772 


C41 10 


DUM6A 


TFM 


**,**, 0, 




00784 


P3 


00784 


00629 


04130 


DUM7A 


TNF. 


**, SQHLD. 


0, SEQUENCE 


00796 


Kl 


00629 


00631 


04140 


DUM7B 


A 


SQHLD. SQCT. 0. 


0O808 


J5 


00808 


00005 


04150 


DUM8A 


TDM 


** . 5 . . 




0082O 


J5 


O0820 


00007 


04160 


DUM9A 


TDM 


»*.7.0. 




0O833 




00050 




05010 


EMPTY 


DAC 


50. 




00933 




00031 




05O20 




DAC 


31 , 


12 


0O<?Q5 




POP31 




05OA0 


I N 


DAS 


81 . , 



01 157 

00995 
•T3 131 9 
01323 
01327 
01331 
01349 
01359 
01367 
01383 
01389 
01399 
01403 
01445 
01523 
01569 
01643 
01679 
01761 

01 842 
01854 
01866 
01878 
01890 
01902 
01914 
1926 
01938 
01950 
01962 
01974 
1 986 
01998 
02010 
02022 
02034 
02046 
02058 
02070 
02082 
O2094 
02106 
021 18 
02130 
02142 
02154 
02166 
02178 
02190 
02202 
02214 
02226 
02238 
02250 
02262 
02274 
02286 
02298 
02310 
02322 
' 02334 
02346 
02358 
02370 
02382 
02394 
02406 
02418 
02430 
02442 
02454 
02466 
02478 
02490 
02502 
02514 
02526 
02538 
02550 
02562 
02574 
02586 
02598 
02610 
02622 
02634 
02646 
02658 
02670 
02682 
02694 
02706 
02718 
02730 
02742 
02754 
02766 
02778 
02790 
02802 
02814 ' 



00081 

00OO2 
00002 
00002 
00 009 
00005 
00 004 
00008 
0.0 OO 3 
O0 0O5 
00002 
00 021 
00 039 
00023 
00037 
00018 
00 041 
00041 

33 00932 
16 01884 
16 0O653 
16 01878 

11 01884 

12 00653 
47 01878 
26 00 006 
16 06252 
16 06276 
16 12216 
16 00631 
16 12 139 
16 12151 
16 027OO 
16 02712 
16 02736 
16 02844 
16 02880 
16 02892 
16 02904 
16 03336 
16 03480 
16 03492 
16 03504 
16 03660 
16 03672 
16 03696 
16 03701 
16 03768 
16 04176 
26 00629 
16 04 356 
16 04 368 
16 04560 

16 04572 
26 01 153 
37 00995 
24 00997 
46 02562 
24 00997 
46 02586 
24 00997 
46 02610 
24 01011 
46 02634 
24 01003 
46 03390 
24 01001 
46 03618 
24 01009 
46 03882 
24 00999 
46 04266 
24 01 003 
46 04470 
24 00997 
46 04674 

17 12750 
49 02274 
16 00429 
49 02274 
16 00429 
49 02274 

16 00429 
49 02274 

17 12360 
49 02670 
17 12432 
14 00635 
46 03006 
26 02694 
26 02706 
17 12294 
26 02730 
1 1 02700 
11 02712 
1 1 02736 
11 00431 
21 00 439 
17 12228 
26" 00754 



OOOOO 
-0423 
0OO-9 
OOO-O 
-0002 
000-1 
01200 
004 16 
-6258 
-628? 
-6246 
000-1 
000M1 
000M1 
-044 1 
-0443 
-0448 
-5285 
-6295 
-6305 
-6300 
-7289 
-8251 
-8261 
-8256 
-0994 
-0995 
-9233 
-0995 
-9228 
-0629 
00663 
J0205 
J0200 
Jl 177 
Jl 172 
00991 
005O0 
01321 
01200 
1 325 
01200 
01329 
O12O0 
01347 
01200 
01357 
01200 
01365 
01200 
01381 
01200 
01387 
01200 
01397 
012O0 
01401 
01200 
-1523 
OOOOO 
000-1 
OOOOO 
000-2 
OOOOO 
000-3 
OOOOO 
-0000 
OOOOO 
-0000 
OOO-O 
01200 
00633 
00635 
-0995 
12293 
-0009 
-0009 
-0009 
OOO-l 
C0635 
-0995 
12227 



05050 
05060 
07010 
07020 
07030 
07040 
07050 
07060 
07070 
07080 
07090 
07100 
071 10 
07120 
0714O 
07180 
07190 
07210 
07290 
08001 
08010 
08020 
08030 
08040 
08050 
08060 
08070 
08080 
08090 
08100 
081 10 
08125 
08 1 30 
08140 
08142 
08144 
08146 
08148 
08150 
08160 
08170 
08180 
08190 
08200 
09010 
0902C 
09030 
09040 
09050 
09060 
09065 
09066 
09070 
09080 
09090 
09100 
10010 
10020 
1 0030 
1 0040 
10050 
1 0060 
1 0070 
10080 
1 0090 
10100 
10110 
10120 
1 0130 
10140 
1 0150 
10160 
1 0170 
10180 
10190 
1 0200 
11010 
1 1020 
1 1 040 
1 1050 
12010 
1 2020 
12030 
12040 
12060 
12070 
1 7*0 1 
17020 
17030 
17040 
17050 
17100 
17110 
1 7120 
17130 
17140 
1 7150 
17160 
1 7170 
18010 
18020 
1 RC22 



OUT 

CARD 

IS1 

1S2 

I S3 

IS4 

IS5 

I S6 

IS7 

I SB 

I S9 

I S 1 

ERR 1 

ERR2 

ERR4 

ERR8 

ERR9 

ERR 1 1 

ERR 

* 

START 



ONE 
TWO 
THREE 
REPRO 

1 7A 

1 7B 

17C 
1 7D 



DAS 

DS 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

DAC 

CF 

TFM 

TFM 

TFM 

AM 

SM 

BNZ 

TF 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TFM 

TF 

TFM 

TFM 

TFM 

TFM 

TF 

RACD 
C 

BE 
C 

BE 
C' 
BE 
C 

BE 
C 

BE 
C 

BE 
C 

BE 
C 

BE 
C 

BE 
C 

BE 

BTM 

B 

TFM 

B 

TFM 

B 

TFM 

B 

BTM 

B 

BTM 

CM 

BE 

TF 

TF 

BTM 

TF 

AM 

AM 

AM 

AM 

A 

BTM 
TF 
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81,, 
, I N'» , 

2, SI 
2,S2 
2, S3 

9, REPRODUCE 

5, BLANK 
4, EM IT 

8, SEQUENCE 
3, SET 
5 ♦ CLEAR 
2, GO 

21, NO $1,S2, OR S3 CARD®, 

39, OTHER THAN EMIT OR SEQ WITH S3 CONTROL® , 
23, UNDEFINED CONTROL CARD®, 

37, SEQUENCE FIELD NOT IN 2-10 COL RANGE®, 
18, SEQUENCE OVERFLOW®, 

41, UNMATCHED CODES OR LENGTHS IN REPRO CARD®, 
41, ERROR IN CONTROLS. CORRECT + PRESS START®, 
BEGIN PROGRAM OPERATION 

EMPTY+2*51-3 
8A+6»CT1 , , 
WORK2.09, 10, 
**,00,10, 
8A+6.2, , 
W0RK2.01,10, 
8A 

6. RST1+6 

QUES1+6,QUES1+12, , 
QUES2+6.QUES2+12, , 
QUES3+6,QUES1 , , 
SQCT,6l ,10, 
E7A+1 ,41,10, 
E7B+1 ,41,10, 
17C+6.FCD,, 
17D+6.FLNG,, 
17E+6,FRT, , 
17F+6»SF, , 
18A+6.CLFRM-10, , 
1 8B+6 , CLFRM , , 
18C+6,CLFRM-5, , 
21C+6,E4A, , 
30C+6,F5A-10, , 
30D+6.E5A,, 
30E+6,E5A-5, , 
33A+6»CARD-1 , , 
33B+6,CARD, , 
33C+6,E6A,, 
33C+1 1 .CARD, , 
33D+6.E6A-5 
42F+6,SQHLD 
SGHLD.Z10. , 
50C+6»E8A. , 
50D+6,E8A-5, . 
52C+6,E9A, , 
52D+6.E9A-5, , 
CARD+2*80-2.EMPTY+2*80-2» 
CARD 

CARD+2, I SI +2. , 
ONE 

CARD+2, IS2+2 

two 

CARD+2, IS3+2 
THREE 

CARD+16, IS4+16 
REPRO 

CARD+8, IS5+8 
BLANK 

CARD+6, I S6+6 
EMIT 

CARD+14,IS7+14 

SEQ 

CARD+4, IS8+4 
SETFL 

CARD+8, IS9+8 
CLRFL 

CARD+2, I SI 0+2 
GO 

PR I NT , ERR4 , , 
CNTRL 

CT4,01 , 10, 
CNTRL 
CT4,02, 10, 

CNTRL 

CT4,03, 10, 
CNTRL 
COLA, , , 
17B,,, 
COLB, , , 
CLONG.OO, 10, 
19A 

**,CCODE, , 
**.CLONG. , 
RIGHT, IN, 
**.RIGHT-l , , 
17C+6.9, , 
17D+6,9, , 
17E+6,9, , 
CT5,01 , 10 
CT9 , CLONG , , 
LEFT, IN, , 
DUM4A+6 .LEFT- 1 



DETERMINE TYPE OF CONTROL CARD 



FROM/TO 

PROCESS FROM CARD 



FCD) 
FLNG) 
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02826 


33 


00750 


r^oooo 


1 8024 




CF 


Duma a + 2 


02838 


26 


02838 


00759 


1 8026 


1 7F 


TF 


i DUM4 A+ 1 1 * • 


02850 


1 1 


02844 


-00 1 2 


1 8028 




AM 


1 ~7F + 6 ♦ 1 2 t ♦ 


02862. 


1 7 


1 ??°4 


- 1 1 ^7 


1 S030 




BTM 


RIGHT4OUT4 * 


02874 


26 


02H74 


no* 7 73 


1 8040 


1 8 A 


TF 


***DUM6A+1 « * 


02886 


1 6 


028B6 


000 — 


1 8050 


1 8B 


TFM 


« 00 * 1 « 


02898 


26 


02898 


1 2293 


1 8060 


1 8C 


TF 


♦♦♦RIGHT— 1 • • 


029 1 


1 1 


02880 


-00 1 2 


1 8070 




AM 


1 8 A+6 * 1 2 ♦ 4 


02922 


1 1 


02892 


— 00 1 2 


1 B080 




AM 


I fcJtJ + O 4 i 4 4 


02934 


1 1 


02904 


— 00 1 2 


1 8090 




M 


1 8C + 6 » 1 2 * * 


02946 


1 2 


1 2293 


—000 2 


18100 




SM 


□ T TUT— 1 * o . . 
K 1 UPI I — 1 4 C 4 4 


02958 


1 2 


00635 


000— 1 


18110 






^L-WNvj tul 4 I u 4 


02970 


47 


02874 


1 200 


18120 




BN7 




02982 


1 4 


00651 


000Q1 


1 n'^n 




CM 


TEMP2 4 8 1 4 1 4 


02994 


47 


02658 


1 200 


1 






1 7A 


030O6 


1 7 


1 2360 






1 


BTM 


COLA 444 


03018 


49 


03042 


00000 


19020 




B 


1 9C 


303 


1 7 


1 24 


~on°n 


9030 


1 98 




COLB 


03042 


1 4 


0O6. 5 


° on 


19040 


1 9C 


CM 


CLONG * 00 4 1 


03054 


46 


02274 


0120 


19 5 








03066 


1 6 


031 25 


-0441 


19110 


1 9D 


TFM 


poAi.1 1 »F(~n* * 

L UHt 1 1 t " V,U 4 • 


03078 


1 6 


03257 


— 0443 


19120 




TFM 


21A+1 1 t FLNG « ♦ 


03090 


1 6 


0328 1 


— 0448 


191 30 




TF M 


c. 1 tt+ 1 1 ♦ r K 1 * * 


031 02 


1 6 


03 1 97 


000— 1 


19140 




TFM 


2 OR+ 1 1 4 1 4 10* 


031 1 4 


24 


00633 


03114 


20020 


20A 


C 


V-LUUC. * 4 * 


031 26 


46 


03234 


01200 


20030 




BE 


20D 


031 38 


1 1 


03 1 25 


—0009 


20050 




AM 


2 A+ 1 1 4 9 4 4 


03150 


1 1 


03257 


-0009 


20060 




AM 


2 1 A+ 1 1 « 9 4 4 


03162 


1 1 


03281 


—0009 


2007O 




AM 


2 1 B+ 1 1*9*4 


031 74 


1 1 


031 97 


OOO— 1 


20080 




AM 


cUDt 1 1 4 U 1 * 1 vj 4 


03186 


1 4 


00431 


-3 1 86 


20O9O 


208 


CM 


CT 6 ? ♦ 4 4 


03198 


46 


031 14 


01300 


20 1 00 




BNN 




032 1 


1 7 


1 2750 


— 1 679 


20110 


20C 


BTM 


rH 1 IN 1 4 tKK 1 1 


03222 


49 


02274 


00000 


20 120 








03234 


1 1 


00437 


OOO— 1 


20 140 


2 OD 


M 


c to .ni -in 


3246 


24 


00 635 


03246 


2 1 1 O 


2 1 A 




UlNO 4 4 4 


03258 


47 


032 1 


1 200 


2 1 02O 




BNE 




03270 


26 


00771 


03270 


21 050 


2 IB 




DUM5A+ 1 1 4 ** 


03282 


33 


00767 


00000 


2 * n-rn 




CF 


DUM'SA + T 


03294 


1 7 


1 2294 


— 1 1 57 






BTM 


R I GHT 4 OUT 










21 080 




TP* 


DUM5A + 6 4 R I GHT 


03318 


33 


00762 


00000 


21 090 




CF 


DUM5A+2 


03330 


26 


03330 


00771 


21110 


21C 


TF 


*»4f)UM5A+l 1 4 * 


03342 


1 1 


03336 


-0012 


21 120 




AM 


21C + 6 4 1?4 4 


03354 


14 


00651 


000Q1 


21 140 




CM 


TEMP2481 4 104 


03366 


47 


03030 


01200 


21 150 




BNE 


19B 


03378 


49 


02274 


00000 


21 160 




B 


CNTRL 



= CLFRM-10) 
= CLFRM ) 
= CLFRM-5) 



PROCESS TO CARD 



03390 17 12360 -0000 30020 BLANK 

03402 49 03426 OOOOO 30030 

03414 17 12432 -0000 30040 30A 

03426 14 00635 000-0 30O6O 30B 

03438 46 02274 01200 30070 

03450 17 12294 -1157 30080 

03462 21 00433 00635 30090 

03474 26 03474 00773 301 00 30C 

03486 16 03486 OOO-O 30110 30D 

03498 26 03498 12293 30120 30E 

03510 11 03480 -0012 30130 

03522 11 03492 -0012 30140 

03534 11 03504 -00 12 30150 

03546 12 12293 -0002 30160 

03558 12 00635 000-1 30170 

03570 47 03474 01200 30180 

03582 14 00651 OOOQ1 31160 

03594 46 02274 012OO 31170 

03606 49 03414 00000 31180 

03618 26 01153 00991 33010 EMIT 

03630 37 00995 0O500 33020 

03642 16 00653 000-1 33030 

03654 32 03654 00000 33040 33A 

03666 14 03666 OOO-O 33050 338 

03678 46 03798 01200 33060 

03690 26 03690 03690 33080 33C 

03702 11 03696 -00 12 33090 

03714 13 00653 00-02 33110 

03726 11 00099 -1155 33120 

03738 26 00778 00099 33130 

03750 33 00774 00000 33140 

03762 26 03762 00778 33150 33D 

03774 11 03768 -OO 1 2 33160 

03786 11 00435 000-1 33180 

03798 1 1 03660 -0002 34020 34A 

03810 11 03672 -0002 34030 

03822 11 03701 -0002 34040 

03834 1 1 00653 000-4 34050 

03846 14 00653 000Q1 34060 

03858 47 03654 01200 34070 

03870 49 02274 00000 34080 

03882 43 03906 01018 41020 SEQ 

03894 49 03978 00000 41030 

03906 43 0394? 01020 41040 41A 

03918 25 00631 01019 41050 

03930 49 03978 00000 41060 

03942 25 00631 01021 4 1070 41B 

03954 25 00630 01019 41080 

03966 32 00630 OOOOO 4 1090 

03978 17 12360 -0O00 41110 41C 

03990 26 00653 00637 41120 

O4002 26 04169 00639 41140 41D 

04014 14 00651 000Q1 41142 

04026 46 04074 01200 41144 

04038 17 12432 -000C 41150 



BTM 
8 

BTM 
CM 
BE 
BTM 
A 

TF 
TFM 
TF 
AM 
AM 
AM 
SM 
SM 
BNZ 
CM 
BE 
B 
TF 



SF 

CM 

BE 

TF 

AM 

MM 

AM 

TF 

CF 

TF 

AM 

AM 

AM 

AM 

AM 

AM 

CM 

BNE 

B 

BD 



BLANKS 
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COLA, , , 
30B 
COLB 

CLONG ,00. 10 
CNTRL 
RIGHT. OUT 
CT6. CLONG. . 
**.DUM6A+1 . , 
**.00. 10. 
»*,R IGHT-1 . . 
30C+6. 12. . 
30D+6. 12. . 
30E+6. 12. , 
R I GHT— 1 .2. . 
CLONG .01.10. 
30C 

TEMP2.81 . 10 
CNTRL 
30A 

CARD+2*80-2 ,EMPTY+2*80-2 . 
RACD CARD. . . 
TFM WORK2.01.10. 
** . . . 
»*.00. 10. 
34 A 

33C+6. 12. . 
WORK2.002.9. 
00099 .OUT-2. . 
DUM6A+6. 00099 
DUM6A+2 
**,DUM6A+6. • 
33D+6. 12. 
CT7.01 , 10. 
33 A+6. 2. . 
33B+6.2. . 
33C+1 1,2.. 
W0RK2.01 , 10, 
WORK 2, 81 .10. 
33A 
CNTRL 

4 1 A . C ARD+2* 1 3-3 . . 
41C 

41B,CARD+2*14-3. • 
SQCT.CARD+2*13-2. . 
41C 

SQCT . CARD+2* 1 4-2 
SQCT-1 .CARD+2* 13-2 
SQCT-1 
COLA 

W0RK2.CLFT. , 
42E+1 1 .CRT. , 
T^YP? ,81,10,, 

4 IE | 6 



(P = 
(P = 



E5A-10) 
E5A ) 



(P = E5A-5) 



= CARD-1 ) 
= CARD) 



(P = E6A, O = CARD) 



SEQUENCE CONTROL 



BO 
TO 
B 

TD 
TD 
SF 
BTM 
TF 
TF 
CM 
BF 
BTM 



04050 
04062 
04074 
04086 
04098 
04110 
04122 
04134 
04 146 
04158 
04170 
04182 
04 194 
04206 
04218 
04230 
04242 
04254 
04266 
04278 
04290 
04302 
04314 
04326 
04338 
04350 
04362 
04374 
04386 
04398 
0441 
04422 
04434 
04446 
04458 
04470 
04482 
04494 
04506 
04518 
04530 
04542 
04554 
04566 
04578 
04590 
04602 
04614 
04626 
04638 
04650 
04662 
04674 
04686 
04698 
04710 
04722 
04734 
04746 
04758 
04770 
04782 
04794 
04806 
04818 
04830 
04842 
04854 
04B66 
04878 
04890 
04902 
04914 
04926 
04938 
04950 
04962 
04974 
04986 
04998 
0501 
05022 
05034 
05046 
05058 
05070 
05082 
05094 
05106 
051 18 
05130 
05142 
05154 
05166 
05178 
05190 
05202 
05214 
05226 
05238 
05250 
05262 



14 00635 

47 04002 

26 00 639 

22 04 169 

46 04 134 

17 12750 

49 02274 

14 04 169 

46 04 1 1 

12 04 176 

32 04 170 

17 12294 

72 1229L 

26 12149 

26 12161 

17 12294 

26 12144 

49 02274 

17 12360 

49 04302 

17 12432 

14 00 635 

46 02274 
17 12228 
21 00425 
26 04350 
26 04 362 

I 1 04356 

I I 04368 
U 12227 
12 00635 

47 04350 
14 00651 
47 04290 
49 02274 
17 12360 
49 04506 
17 12432 
14 00635 

46 02274 
17 12228 
21 00427 
26 04554 
26 04566 
1 1 04560 
1 1 04572 

11 12227 

12 00635 

47 04554 
14 00651 
47 04494 
49 02 274 
14 00 429 
47 818 
14 0( 425 
47 04 794 
14 00427 
47 04794 
14 00431 
47 04794 
14 00433 

46 04866 
17 12750 
49 04878 
14 00429 

47 04866 
17 12750 
49 04878 
44 04914 
17 12750 

48 00 000 

49 01842 
14 00429 
47 04962 
16 06276 
49 0501O 
14 00429 
47 05010 
16 06252 
16 12216 

13 00431 
1 1 00099 
26 0009R 
13 00439 
1 1 00099 
26 00 09R 
13 00437 
1 1 00099 
26 0009R 
13 00433 
11 00 099 
26 0009R 
13 00435 
1 1 00099 
26 0009R 
13 00425 
1 1 00099 
26 0009R 
13 00427 
1 1 00099 
26 0009R 
26 01 155 



OOO-O 
01200 
04 169 
00653 
01 1 00 
-1569 
00000 
000-9 
01 1 00 
-4158 
00000 
-0995 
0O629 
00795 
00807 
-1 157 
1 2293 
00000 
-0000 
00000 
-OOOO 
000-0 
01200 
-1 157 
00635 
008 19 
12227 
-0012 
-0012 
-0002 
000-1 
01200 
00001 
01200 
00000 
-0000 
00000 
-0000 
000-0 
01200 
-1 157 
00635 
00831 
12227 
-0012 
-00 1 2 
-0002 
000-1 
01200 
000Q1 
01200 
00000 
000-3 
01200 
000-0 
01200 
000-0 

1200 
000-0 
01200 
000-0 

01 200 
-1445 
00000 
000-0 
01200 
-1403 
00000 
00423 
-1761 
00000 
00000 
000-2 
01200 
-7266 
00000 
000-3 
0120O 
-7266 
J21 38 
00-12 
-5285 
00687 
00-12 
-6305 
00675 
00-12 
-7289 
00699 
00-12 
-8261 
007 1 1 
00-12 
-9233 
00723 
00-12 
J0205 
00735 
00-12 
Jl 1 77 
00747 
00993 



41 160 
41 170 
4 1 180 
42010 
42030 
42050 
42060 
42070 
42080 
42100 
42120 
42130 
42150 
43060 
43070 
43080 
43090 
43100 
50020 
50030 
50050 
50070 
50080 
50090 
50100 
50120 
50130 
50140 
50150 
50160 
50170 
50180 
50200 
5021 
50220 
52010 
52020 
52030 
52040 
52050 
52060 
52070 
52080 
52100 
521 10 
52120 
52130 
52140 
52150 
52170 
52180 
52190 
60020 
60030 
60040 
60050 
6OO60 
60070 
60080 
60090 
60100 
601 10 
60120 
60130 
60150 
60160 
60170 
60180 
61010 
61020 
61030 
61040 
61060 
61070 
61080 
61 090 
61 100 
61110 
61 120 
61 130 
61 150 
61 160 
61 170 
61 180 
61 190 
61200 
61210 
61220 
61230 
62010 
62020 
62030 
62040 
62050 
62060 
62070 
62080 
62090 
62100 
621 10 
62120 
62150 



50A 
5 OB 



50C 
50D 



52A 
52B 



52C 
52D 



SET FLAG 



CLEAR FLAG 
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CM CLONG.00,10, 

BNE 4 1 D 

41E TF CRT.42F+11,, 

S 42E+1 1 ,W0RK2 

BH 42B 

42A BTM PR I NT • ERRS • < 

B CNTRL 

42B CM 42E+1 1 .09. 10. 

BH 42A 

42E SM 42F+6,**.. 

42F SF *#... 

BTM RIGHT. CARD., 

TNS RIGHT— 1 .S0HLD.6 

TF E7A+1 1 . DUM7A+ 1 1 

TF E7B+1 1 .DUM7B+1 1 

BTM RIGHT. OUT.. 

TF E7A+6.RIGHT-1 . . 

B CNTRL., . 

SETFL BTM COLA,,, 

B 508 

BTM COLB. , , 

CM CLONG.00,10, 

BE CNTRL 

BTM LEFT, OUT,, 

A CT2,CLONG,, 

TF **,r>UM8A+l 1 , , 

TF **,LEFT-1», 

AM 50C+6,12,, 

AM 500+6,12,, 

AM LEFT- 1,2,, 

SM CLONG.Ol ,10, 

BNZ 50C 

CM TEMP2,81 ,10, 

BNE 50A 

B CNTRL 

BTM COLA,,, 

B 52B 

BTM COLB,,, 

CM CL0NG,00,10, 

BE CNTRL 

BTM LEFT, OUT,, 

A CT3,CL0NG,, 

TF **,DUM9A+1 1 , . 

TF **.LEFT-1.. 

AM 52C+6.12,, 

AM 52D+6»12,» 

AM LEFT-1,2,, 

SM CLONG,1,10» 

BNZ 52C 

CM TEMP2,81,10, 

BNE 52 A 

B CNTRL 

GO CM CT4,03.10. 

BNE 60B 

CM CT2.00.10. 

BNE 60A 

CM CT3.0C10, 

BNE 60A 

CM CT5,00, 10, 

BNE 60A 

CM CT6.00.10 

BE 61 A 

60A BTM PR I NT , ERR 2 » . 

B 61 C 

60B CM CT4.00.10, 

BNE 6 1 A 

BTM PR I NT, ERR 1,. 

B 61C 

61 A BNF 61D.CT1,, 

61C BTM PR I NT, ERR 

H 

B START 

61D CM CT4,02,10, 

BNE 61 E 

TFM OUES2+6 , NOTR , , 

B 61F 

61E CM CT4,03,10, 

BNE 6 1 F 

TFM QUES 1+6, NOTR, , 

TFM QUES3+6.E7A, , 

61F MM CT5,12,9, 

AM 00099, SF,. 

TF 00099 . BR2+ 11.6, 

MM CT9,12.9. 

AM 00099 , CLFRM, , 

TF 00099, BR1+1 1 ,6. 

MM CT8,12,9, 

AM 00099.E4A 

TF 00099. BR4+1 1 .6. 

MM CT6.12.9, 

AM O0O99»E5A», 

TF 00099, BR5+1 1 ,6, 

MM CT7,12,9, 

AM 00099, E6A,, 

TF 00099, BR6+1 1 ,6, 

MM CT2,.12,9, 

AM 00099, E8A«. 

TF 00099 . BR8+ 11.6. 

MM CT3.12.9, 

AM 00099.E9A.. 

TF 00099 . BR9+ 11.6. 

TF lN+2*81-2.EMPTY+2*81-2, 



(P = SQHLD) 



<P = E8A) 
<P = E8A-5) 



(P = E9A) 
< P = E9A-5) 



IF S3. ONLY EMIT + SEQ ALLOWED 



NO $1 ,$2, S3 CARD 



SET TRANSFERS FOR S2 + S3 



INSERT BRANCHES 
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05285 
06246 
06258 
06270 
06282 
06305 
07266 
07289 
08261 
09233 

I O205 

II 177 
12138 
12150 
12162 
12174 
12186 
12198 
12210 
12226 
12228 
1 2240 
1 2252 
1 2264 
1 2276 
12292 
12294 
1 2306 
12318 
12330 
12342 
12358 
12360 
1 2372 
1 2384 
12396 
1 2408 
1 2420 
12432 
12444 
12456 
1 2468 
1 2480 
12492 
12504 
12516 
1 2528 
12540 
1 2552 
12564 
12576 
1 2588 
12600 
12612 
12624 
12636 
12648 
12660 
12672 
12684 
12696 
1 2708 
1 2720 
12732 
1 2748 
12750 
12762 
12774 
12786 
1 2798 
01842 



00012 
49 06246 
37 00995 
49 06270 
31 1156 
00012 
31 01156 
0001 2 
0001 2 
000 1 2 
00012 
00012 
48 00000 

48 00000 
47 12198 
17 12750 
16 12163 
39 01 157 

49 12210 
00005 

13 00637 
21 00099 

12 00099 
26 12227 
42 00000 

00005 

13 00639 
21 00099 
12 00099 
26 12293 

42 onooo 
00005 

26 01 153 
37 00995 
16 00644 
16 00649 
16 00651 
41 OOOOO 
16 00633 
16 00637 
16 00639 
16 00 635 

43 12516 
43 12516 
49 12648 
32 0064M 
14 00633 
47 12576 
26 00633 
26 00637 
24 00633 
47 12732 
2( 00639 
3. 0064M 

I 00635 
49 12672 
14 00633 
47 12732 

I I 00644 
1 1 00649 
11 O0651 
14 00651 
47 12480 
42 OOOOO 

00005 
34 OOOOO 
39 1274R 
34 OOOOO 
32 00423 
42 OOOOO 



OOOOO 
00500 
OOOOO 
00994 

00832 



OOOOO 
OOOOO 
01400 
-1643 
000M9 
00400 
OOOOO 

OO-02 
12227 
-0003 
00099 
OOOOO 

00-02 
12293 
-0002 
00099 
OOOOO 

00991 
00500 
-0994 
-0995 
OOO-l 
OOOOO 
000-0 
000-0 
000-0 
000-0 
0064M 
0064R 
OOOOO 
OOOOO 
000-0 
01200 
0O64R 
00651 
0064R 
01200 
O0651 

ooooo 

000-1 
OOOOO 
000-0 
01200 
-0002 
-0002 
000-1 
OOOQO 
01 100 
OOOOO 

001 02 
OOl 00 
00102 
OOOOO 
OOOOO 



62160 
62180 
62190 
63010 
63020 
63030 
63060 
72020 
72040 
72060 
721 10 
72130 
721 32 
72134 
72136 
72138 
72140 
72150 
72160 
96020 
96030 
96040 
96050 
96060 
96070 
96100 
961 1 
96120 
96130 
96140 
96150 
9701 
97020 
97030 
97040 
97050 
97060 
97070 
97080 
97090 
97100 
971 10 
97130 
97140 
97150 
97160 
97170 
97180 
97190 
97200 
98020 
98030 
98040 
98050 
98060 
98070 
98090 
98100 
98120 
98130 
981 40 
98160 
98170 
98190 
99020 
99030 
99040 
99O50 
99060 
99070 
991 10 



SF 

QUES1 



QUES2 

CLFRM 
NOTR 
E4A 
E5A 
E6A 
E8A 
E9A 
E7A 
E7B 
72A 



PUNCH 
QUES3 



LEFT 



COLA 

COLB 

97A 
97B 

98F 



98G 
98H 



98J 
PRINT 



DSR 
B 

RACD 
B 
TR 
DSB 
TR 
DSB 
DSB 
DSB 
DSB 
DSB 
H 
H 

BNV 
BTM 
TFM 
WACO 
B 
DC 
MM 
A 

SM 
TF 
BB 
DC 
MM 
A 

SM 
TF 
BR 
DC 
TF 

RACD 
TFM 
TFM 
TFM 
NOP 
TFM 
TFM 
TFM 
TFM 
BD 
BD 
B 
SF 
CM 
BNE 
TF 
TF 
C 

BNE 
TF 

CF 
AM 
B 

CM 

BNE 

AM 

AM 

AM 

CM 

BNH 

BB 

DC 

RCTY 
WATY 
RCTY 

SF 
BB 

DEND 



12.81 . . 
»* , , , 

IN 

** , , , 

OUT-1 « IN-1 . , 
12.81 . . 

OUT— 1 » EMPTY — 1 

12.81 . . 

12.81 . . 

12.81 . . 

12.81 . . 

12.81 . . 



SET FLAGS FOR FROM/TO 
MODIFIED FOR S3 • (P = »+12> 

MODIFIED FOR S2 (P = *+12> 

CLEAR FROM FIELDS IN TO AREA 

REPRODUCE FROM/TO 

SET BLANK 

EMIT 

SET FLAGS 
CLEAR FLAGS 

SEQUENCE INFORMATION < OP = NOP) 
(OP = NOP) 



MODIFIED FOR S3 CP = 0UES1) 

CALCULATE LEFTMOST LOCATION 

L0C+2*N-3 (N=COL IN CLFT ) 



CALCULATE RIGHTMOST LOCATION 
, L0C+2*N-2 (N=COL IN CRT) 



PUNCH 

PR I NT . ERR9 . . 
72A+1 .49. 1 0, 
OUT 
** . « » 
5.00000. • 
CLFT . 002.9 . 
00099.LEFT-1 . • 
00099 .00003. « 
LEFT— 1 ,00099. . 

5. OOOOO . . 
CRT. 002. 9. 
00099.RIGHT-1 < 
00099.00002. . 
RIGHT-1 .00099 



5,00000.. COLUMN SEARCH SUBROUTINE 
CARD+2*80-2.EMPTY+2*80-2, . 
CARD . . . 

TEMP5 A . CARD— 1 , . 
TEMP5B , CARD , . 
TEMP2.01 .10, 



CCODE.OO. 10. 
CLFT. 00, 10. 
CRT, 00. 10, . 
CLONG.OO. 10. 
97B , TEMP5 A < 1 1 , 
97B.TEMP5B, 1 1 , 
98G. , » 
TEMP5A, ,6, 
CCODE.OO. 10. 
98F, » . 

CCODE , TEMP5B , 1 1 
CLFT . TEMP2 . » 
CCODE . TEMP5B . 1 1 
98J... 
CRT « TEMP2 » . 
TEMP5A. .6, 
CLONG.Ol , 10, 
98H 

CCODE.OO, 10. 
98 J. » . 

TEMP5A.00002, » 
TEMP5B, 00002. . 
TEMP2.01 , 10, 
TEMP2 .80, 10. 
97A 
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5.00000. . 
• ♦ • 

PR I NT- 1 , ,6< 

CT1 

START 



BTM PR I NT , ERRX , « 
RETURN 
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E 

TECHNOLOGY 



THE COMPUTER MUSEUM HISTORY CENTER 
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